home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 10
/
FM Towns Free Software Collection 10.iso
/
fb386
/
demo
/
kushida
/
77.bas
< prev
next >
Wrap
BASIC Source File
|
1995-02-03
|
11KB
|
191 lines
10 PLAY OFF
20 LOAD@ "ED02.FMB" : LOAD@ "ED05.PMB"
30 CLS 1 : COLOR 5 : PRINT "BIND OF 80s OBSESSION"
40 PRINT "written TAKAO KUSHIDA"
50 S$="%CQ8T130" : PLAY S$,S$,S$,S$,S$,S$,S$,S$,S$,S$,S$,S$,S$,S$
60 '
70 '
80 '
90 AL$="@11V7O4L16" : AR$=AL$+"V2"
100 A1L$=AL$+" <A>RCR G8&GF8&FE8 D8 E8& E8 E8DE 8ERE <A8B8>C8 Q8"
110 A1R$=AR$+"R5 <A>RCR G8&GF8&FE8 D8 E8& E8 E8DE 8ERE <A8B90 Q8"
120 A1E$=AL$+" D4C8<B4B8G4 >E2D2"
130 A1F$=AR$+"R5 D4C8<B4B8G4 >E2D4"
140 A1G$=AL$+" C8<B8>C8D4C8D8E4D8C8<B4E8G8G#8 Q8"
150 A1H$=AR$+"R8 C8<B8>C8D4C8D8E4D8C8<B4E8G8 Q8"
160 A1I$=AL$+" C8<B8>C8D4E8F8G4F8E8D4&D8<B4"
170 A1J$=AR$+"R8 C8<B8>C8D4E8F8G4F8E8D4&D8<B8"
180 A1M$=AL$+"@44 <A>RCR G8&GF8&FE8 D8 E1"
190 A1N$=AR$+"@44R5 <A>RCR G8&GF8&FE8 D8 E1"
200 A2L$=AL$+" <A4>A8<A4A8>A8<A4 A8>G8<A4 A8>C8D8"
210 A2R$=AR$+"R5 <A4>A8<A4A8>A8<A4 A8>G8<A4 A8>C90 "
220 A2E$=AL$+" E8D8C8<B4 G8>C8D8 E4<E8> D4C8<B8G#8"
230 A2F$=AR$+"R5 E8D8C8<B4 G8>C8D8 E4<E8> D4C8<B90 "
240 A2G$=AL$+" <G8E8G8B4>C4<B4A4G4G8E4 "
250 A2H$=AR$+"R5 <G8E8G8B4>C4<B4A4G4G8E90"
260 A3L$=AL$+" C8<B8>C8G4 C8<G8>D8 C8<B8>C8<G4 B8>C8D8"
270 A3R$=AR$+"R5 C8<B8>C8G4 C8<G8>D8 C8<B8>C8<G4 B8>C90 "
280 A3E$=AL$+" C8<B8>C8G4 C8<G8>C8 D8C8D8G4D8E8B8 "
290 A3F$=AR$+"R5 C8<B8>C8G4 C8<G8>C8 D8C8D8G4D8E90 "
300 A3G$=AL$+" G32A32&A&A4F4E4D4&D8 <B4>C4D4 "
310 A3H$=AR$+"R5 G32A32&A&A4F4E4D4&D8 <B4>C4D90"
320 A4L$=AL$+" <ARRR>ARRE RRRRRRDE DRRR<GRRA RRERG4 Q8"
330 A4R$=AR$+"R5 <ARRR>ARRE RRRRRRDE DRRR<GRRA RRERG90 Q8"
340 A4E$=AL$+" <ARRR>ARRE RRRRRRDE <ARRA8GAR RG#RRG#EGG# Q8"
350 A4F$=AR$+"R5 <ARRR>ARRE RRRRRRDE <ARRA8GAR RG#RRG#90 Q8"
360 A5L$=AL$+"@44Q8 GRAR>E<ARAR>E<AR>DRCR<ARRE>C<ARAR>D<AR>ERAR< Q8"
370 A5R$=AR$+"@44Q8E5 GRAR>E<ARAR>E<AR>DRCR<ARRE>C<ARAR>D<AR>E90 Q8"
380 A5E$=AL$+"@44Q8 DRGR>A<ARAR>F<AR>ERDR<ARRE>E<ARAR>G<AR>BRGR Q8"
390 A5F$=AR$+"@44Q8E5 DRGR>A<ARAR>F<AR>ERDR<ARRE>E<ARAR>G<AR>B90 Q8"
400 A5G$=AL$+"@44Q8 ARAR>C<AREA>G<GR>ER<BR D>DR<A>RCDR ERBR>CRDR Q8"
410 A5H$=AR$+"@44Q8E5 ARAR>C<AREA>G<GR>ER<BR D>DR<A>RCDR ERBR>C90 Q8"
420 A6L$=AL$+"@44Q8 >C<BRGRGA8&AQ1>EREERER<Q8 GR>GRFERDRCDR<BR>DR Q8"
430 A6R$=AR$+"@44Q8G5 >C<BRGRGA8&AQ1>EREERER<Q8 GR>GRFERDRCDR<B90 Q8"
440 A6E$=AL$+"@44Q8 >C<BRGRGA8&AQ1>ARAARARQ8 DRDRD<B>RCR<BARBRGR Q8"
450 A6F$=AR$+"@44Q8G5 >C<BRGRGA8&AQ1>ARAARARQ8 DRDRD<B>RCR<BARB90 Q8"
460 A6G$=AL$+"@44Q8 >C<BRGRGA8&AQ1>EREERDRQ8 C<BRGRGA8&AQ1>>CRC<BRERQ8"
470 A6H$=AR$+"@44Q8G5 >C<BRGRGA8&AQ1>EREERDRQ8 C<BRGRGA8&AQ1>>CRC<B90 Q8"
480 A7L$=AL$+"@44Q8]] >D8D#32E32&EDCRDR<A>C8<GRA8 >EEEERERERAER<A8>C8"
490 A7R$=AR$+"@44Q8]]A8>D8D#32E32&EDCRDR<A>C8<GRA8 >EEEERERERAER<A8> "
500 A7E$=AL$+"@44Q8]] >DRDRAGRARDGRAREG C<<C>>C<GB>CRCG#32A32GRERD#RD"
510 A7F$=AR$+"@44Q8]]AR>DRDRAGRARDGRAREG C<<C>>C<GB>CRCG#32A32GRERD# "
520 A7G$=AL$+"@44Q8]] >E<ARGARDGR>C<A8>DRC8 D#EGAR>CR<ARG#GRERDR"
530 A7H$=AR$+"@44Q8]]E8>E<ARGARDGR>C<A8>DRC8 D#EGAR>CR<ARG#GRER "
540 A7I$=AL$+"@44Q8]] >C<A>CDR E RDRGREA8G8<]]RA#32B32 > CRR<BRR>CR "
550 A7J$=AR$+"@44Q8]]G8>C<A>CDR E RDRGREA8G8 ]] < ARR GRR AR "
560 A7K$=AL$+"@44Q8 E E GAR>C<RARDRCE8D8 ]]RR ERR DRR ER "
570 '
580 CL$="@106V6O4L16Q8" : CR$=CL$+"V2Q8"
590 C1L$=CL$+" (GA<A>DE<A>CD) <<G>>A<A>DE<A>>D<A GA<A>DE<A>CA Q8"
600 C1R$=CR$+"R8 (GA<A>DE<A>CD) <<G>>A<A>DE<A>>D<A GA<A>DE<A> Q8"
610 C1E$=CL$+" (CG<C>E>G<<C>C>E<) DE<EB>C<EE>B DE<EB> L32 <(D#EGA>) "
620 C1F$=CR$+"R8 (CG<C>E>G<<C>C>E<) DE<EB>C<EE>B DE<EB> L32 < D#EGA "
630 C1G$=CL$+" (CG<C>E>G<<C>C>E<) DE V5%R5 ERRGRRA"
640 C1H$=CR$+"R8 (CG<C>E>G<<C>C>E<) V5%L5 CRRDRRG"
650 C2L$=CL$+" <GAB>C D4CRRCRRCR RRCE ACR<A> CRCE C8&C<F"
660 C2R$=CR$+"R8 <GAB>C D4CRRCRRCR RRCE ACR<A> CRCE C8 "
670 C2E$=CL$+" <GAB>C D4CRRCRRCR <GB>CD E4ERRERGFR"
680 C2F$=CR$+"R8 <GAB>C D4CRRCRRCR <GB>CD E4ERRERR "
690 C2G$=CL$+" E8&EEREER ERF4E8 DRDRDRCDRCCR<G8>D8"
700 C2H$=CR$+"R8 E8&EEREER ERF4E8 DRDRDRCDRCCR<G8> "
710 E1L$="@32V6O3L16Q3 R4A>C EG &G4&G8EG E4&E8 D E D4<G4 Q8"
720 E1R$="@32V2O3L16Q8R8 R4A>C EG &G4&G8EG E4&E8 D E D4<G8 Q8"
730 E1E$="@32V6O3L16Q3 R8GA>C8&C<A&A8&A4E8 G8G#A&A8>C8&CD8&DC8 Q8"
740 E1F$="@32V2O3L16Q8R8 R8GA>C8&C<A&A8&A4E8 G8G#A&A8>C8&CD8&D Q8"
750 E1G$="@32V6O3L16Q3 R8GA>C8&C<A&A8&A4E8 V8Q8>D#DCDR GRERGRRGRG#R"
760 E1H$="@32V2O3L16Q8R8 R8GA>C8&C<A&A8&A4 V7Q8>C<AGAR>DRCRERRERER "
770 E2L$="@32V7O4L16Q8 A8>C8D8<A4&A2 A8>C8D8<A8>C8D8<A8"
780 E2R$="@32V6O4L16Q8 E8 G8A8 E4 ARRARRAD# E8 G8A8 E8 G8A8 E8"
790 E2C$="@32V2O4L16Q8R8 A8>C8D8<A4&A2 A8>C8D8<A8>C8D90 "
800 E2E$="@32V7O4L16Q8 >E8D8C8<A1&A8 G4A4 "
810 E2F$="@32V6O4L16Q8 A8A8G8 E4&E8G8A4D8E4E4F4 "
820 E2G$="@32V2O4L16Q8R8>E8D8C8<A1&A8 G4A8 "
830 E2H$="@32V7O4L16Q8 D4>C8<A4G8A8>C8 <A4>C4 G4 D4"
840 E2I$="@32V6O4L16Q8 <A4>G8 E4D8E8 G8 E4 G4>E4<A4"
850 E2J$="@32V2O4L16Q8R8 D4>C8<A4G8A8>C8 <A4>C4 G4 D8"
860 E2K$="@32V7O4L16Q8 >E4&E8F4E8 C8<A8 G4G#4A4B4"
870 E2M$="@32V6O4L16Q8 >C4&C8D4C8<A8 F8 D4D#4E4G4"
880 E2N$="@32V2O4L16Q8R8>E4&E8F4E8 C8<A8 G4G#4A4B8"
890 E2O$="@32V7O4L16Q8 >E4&E8F4E8 C8<A8 G4A4>C4D4"
900 E2P$="@32V6O4L16Q8 >C4&C8D4C8<A8 F8 D4E4 G4A4"
910 E2Q$="@32V2O4L16Q8R8>E4&E8F4E8 C8<A8 G4A4>C4D8"
920 E3$ ="@114V7O4L16Q2 (<E>EQ8E8 <Q2E<E8>>E RER<<E>> >A<Q8EQ2DD#) Q8"
930 E4L$="@32V7O4L16Q4 <RGRRQ8A2>Q4GRG8 Q8 <C4CRD2<B8"
940 E4R$="@32V6O4L16Q4 <RDRRQ8E2>Q4ERE8 Q8<<G4GRA2 E8"
950 E4C$="@32V2O4L16Q4R8 <RGRRQ8A2>Q4GRG8 Q8 <C4CRD2< "
960 E4E$="@32V7O4L16Q4 <RGRRQ8A2>Q4GRG8 Q8 C4CRD4DR>D4"
970 E4F$="@32V6O4L16Q4 <RDRRQ8E2>Q4ERE8 Q8<G4GRA4AR>A4"
980 E4G$="@32V2O4L16Q4R8 <RGRRQ8A2>Q4GRG8 Q8 C4CRD4DR>D8"
990 E5L$="@32V7O4L16Q4 <ARAR>G8&GG<A>G<A8>GRG<G#ARAR>G8&GG D E CDRD G8"
1000 E5R$="@32V6O4L16Q4 <ERER>E8&EE<E>E<E8>ERE<B ERER>E8&EE<A>C<GARA>E8"
1010 E5C$="@32V2O4L16Q4R8<ARAR>G8&GG<A>G<A8>GRG<G#ARAR>G8&GG D E CD G8"
1020 E5E$="@32V7O4L16Q4 <ARAR>G8&GG<A>G<A8>GRGR< CRCR>C<CRCRCD8>DRDR Q8"
1030 E5F$="@32V6O4L16Q4 <ERER>E8&EE<E>E<E8>ERER<<GRGR>G<GRGRGA8>ARAR Q8"
1040 E5G$="@32V2O4L16Q4R8<ARAR>G8&GG<A>G<A8>GRGR< CRCR>C<CRCRCD8>DR Q8"
1050 B$="@27V8O3L16"
1060 B1$ =B$+"A8&AARGARARRRG8&GD#32E32 F8&FFRCF8FR>D<D>C<EB8"
1070 B1E$=B$+"CGRG8FGRDFGGR>D<GB >CRC8<B>CRCE<AED8D#EG#"
1080 B1F$=B$+"D4D&D8ERDE8E8EC F8&FFREG4 E8E8E8"
1090 B2$ =B$+"A&A8AGRA4ERDEGE A&A8AGRA4>CR<BAG8"
1100 B2E$=B$+"EF8FREF8GRFG8FG8 C4C&C8ER DE8E8G#8"
1110 B2F$=B$+"CRC8C&C8C REF8FRF8 D4D8&DD R<A>E8D8E8 "
1120 B3$ =B$+"D8&DD8&DD8DR>C<ARDRC A8&AA8&AA8AR<A8>C8C#8 "
1130 B3E$=B$+"D8&DD8&DD8DR<DAR>CRD D#E8&EERDE8GE8C8E8"
1140 B3F$=B$+"F8&FFRRD#RR<A#>C8D#8FF# G8G8FG8GRGG#8E8G#8"
1150 B4$ =B$+"<R8A8>G8&GA @26RARRARA<@27E D8E8>A#8&A#A @28<RERRG8&G"
1160 B4E$=B$+"<R8A8>G8&GA @26RARRARA @27D D8CD8AD8RE8&EE8G#8"
1170 B5$ =B$+"<AR>A8<A>A8<ARGA8E8GG# AR>A8<A>A8<ARGA8>C8D8 "
1180 B5E$=B$+"<FR>F8<F>F8<FREF8C8CE FR>F8<F>F8<FREF8>F8C8"
1190 B5F$=B$+" DDC8DR<GGRGA8>C8DD# <ERE8>EDR<B8A#AR>D8<B8"
1200 B5G$=B$+" CDC8DR<GGRGA8>C8DD# D4D#8&D#D#RE8&EG4"
1210 B6$ =B$+"<A8&AARRRRRR AR>ED#R<G RRRRRRRR RRRRE8&EE"
1220 B6E$=B$+"<[[A&A8AE8&EEQ6GRDDRDQ8E8 GA8AE8>Q3EQ8<EQ6GD>Q3G<EQ8G8G#8"
1230 B6F$=B$+"<[[A&A8AE8&EEQ6GRDDRDQ8E8>C8C<A#8A#G8 RRDR E8GG#"
1240 B7$ =B$+"Q6 <GG#A>DRC8CRCRCC<AGE GG#A>DRC8CRCRCERE8 Q8"
1250 B7E$=B$+"Q6 DRDR<A>CDDRD<GG#ARB8 >CCRCR<B>CRRD32C#32D8E8<B8 Q8"
1260 B7F$=B$+"Q6 <FFRFREF8GGRGREGG# &G#8AR RG8&G ARRR RRRR Q8"
1270 '
1280 P1$= "@1V6 O0L16 GRRRGRRRGRRRGRRR GRRRGRRRGRRRGRRR"
1290 S1$= "@1V6 O0L16 GRRRGRRRGRRRGRRR C2 CRCRCR"
1300 SS1$="@1V9 O0L16 GRRRRRRRRRRRRRRC GRRRRRRRRRCRCRCR"
1310 PP1$="@9V8 O1L16 CRRCRRRCRRCRRRRC CRRCRRRCRRCRRRCR"
1320 PS1$="@9V8 O1L16 CRRRRCCCRRRCRCRC CRRCRCRCRRRCRRCR"
1330 P2$= "@8V9 O4L16 RRRRCRRRRRRRCRRR RRRRCRRRRCRRCRV3CC"
1340 Q2$= "@8V9 O4L16 RRRRCRRRRRRRCRRR RRRRCRRR@9>CD<@8C8 @9>C<@8 CCC"
1350 R2$= "@8V9 O4L16 RRRRCRRRRRRRCRRR RCRRCRGCRCR @2 GC<%R9C%L9E>C %C"
1360 PP2$="@8V9 O4L16 RRRRRRRRRRRRCRRC RRRRRRCRCRRRCRV3CC"
1370 S2$= "@8V9 O4L16 RRRRCRRRRRRRCRRR RRRRRRRRRRRRRRRR"
1380 P3$= "@1V4 O7L16 CBCF<C8>CE8BCF<C8>CG32E32CB<C>C<C8>C<G>CB<G8>CF<C8"
1390 S3$= "@1V4 O7L16 CBCF<C8>CE8BCF<C8>CG32E32"
1400 P4$= "@4V5 O7L16 RCRCRO2GO7CRC>C<CRCCRC RCRCRO2GRGO7C>C<CRCCRC"
1410 S4$= "@4V5 O7L16 RCRCRO2GO7CRC>C<CRCCRC "
1420 P5$= "@8V9 O1L16 CRCRRCRCR>G<CRRC>GR< CRCRRR>G<CRGC>RGR<CR"
1430 Q5$= "@8V9 O1L16 CRCRRCRCR>G<CRRC>GR< CR>B<CR>G<C>GRG<C>RGR<CR"
1440 R5$= "@8V9 O1L16 CRCRRCRCR>G<CRRC>GR< CR>B32B32B<RRC>B<C>BRB<CC>CR"
1450 S5$= "@8V9 O1L16 CRCRRCRCR>G<CRRC>GR< CRRRRRRR RRCRCRCR"
1460 SS5$="@8V9 O1L16 CRRRRRRRRRRRRRRR RRRRRRRRRRRRRRCC"
1470 '
1480 'PLAY B7F$,A7I$,,,C1G$,,P5$,P2$,P3$ : END
1490 'PLAY B4$ ,A4L$,A4R$,E1L$,E1R$,E3$,PS1$,P2$ : END
1500 'PLAY B6E$,C1R$,C1L$,EL$,ER$,EC$,P1$,P2$,P3$,P4$ : END
1510 'PLAY B7F$,,,,,,R5$,R2$ :END
1520 'GOTO 1880
1530 '
1540 PLAY B1$ ,A1L$,A1R$,,,, ,PP2$
1550 PLAY B1E$,A1E$,A1F$,,,,PS1$,P2$
1560 PLAY B1$ ,A1L$,A1R$,,,,PP1$,P2$ ,P3$,P4$
1570 PLAY B1F$,A1G$,A1H$,,,,S1$ ,Q2$ ,P3$,P4$
1580 PLAY B2$ ,A2L$,A2R$,C1L$,C1R$,,P1$,P2$,,P4$
1590 PLAY B2E$,A2E$,A2F$,C1E$,C1F$,,P1$,P2$,,P4$
1600 PLAY B2$ ,A2L$,A2R$,C1L$,C1R$,,P1$,P2$,,P4$
1610 PLAY B2F$,A2G$,A2H$,C1E$,C1F$,,P1$,P2$,,P4$
1620 PLAY B3$ ,A3L$,A3R$,C2L$,C2R$,,P1$ , , ,P4$
1630 PLAY B3$ ,A3L$,A3R$,C2L$,C2R$,,P1$ , ,P3$,P4$
1640 PLAY B3E$,A3E$,A3F$,C2E$,C2F$,,P1$ ,PP2$,P3$,P4$
1650 PLAY B3F$,A3G$,A3H$,C2G$,C2H$,,P1$ ,PP2$,P3$,P4$
1660 PLAY B1$ ,A1L$,A1R$,C1L$,C1R$,,P1$ ,P2$ ,P3$,P4$
1670 PLAY B1E$,A1E$,A1F$,C1E$,C1F$,,P1$ ,P2$ ,P3$,P4$
1680 PLAY B1$ ,A1L$,A1R$,C1L$,C1R$,,P1$ ,P2$ ,P3$,P4$
1690 PLAY B1F$,A1I$,A1J$,C1E$,C1F$,,S1$ ,R2$ ,P3$,P4$
1700 PLAY B4$ ,A4L$,A4R$,E1L$,E1R$,E3$,PP1$,P2$
1710 PLAY B4$ ,A4L$,A4R$,E1E$,E1F$,E3$,PP1$,P2$
1720 PLAY B4$ ,A4L$,A4R$,E1L$,E1R$,E3$,PS1$,P2$,,P4$
1730 PLAY B4E$,A4E$,A4F$,E1G$,E1H$,E3$,SS1$,Q2$,,P4$
1740 PLAY B5$ ,A5L$,A5R$,E2L$,E2R$,E2C$,P1$ ,P2$ ,,P4$
1750 PLAY B5E$,A5L$,A5R$,E2E$,E2F$,E2G$,P1$ ,P2$ ,,P4$
1760 PLAY B5F$,A5E$,A5F$,E2H$,E2I$,E2J$,P1$ ,P2$ ,,P4$
1770 PLAY B5G$,A5G$,A5H$,E2K$,E2M$,E2N$,P1$ ,P2$ ,,P4$
1780 PLAY B5$ ,A5L$,A5R$,E2L$,E2R$,E2C$,P1$ ,P2$ ,P3$,P4$
1790 PLAY B5E$,A5L$,A5R$,E2E$,E2F$,E2G$,P1$ ,P2$ ,P3$,P4$
1800 PLAY B5F$,A5E$,A5F$,E2H$,E2I$,E2J$,P1$ ,P2$ ,P3$,P4$
1810 PLAY B5G$,A5G$,A5H$,E2O$,E2P$,E2Q$,P1$ ,P2$ ,P3$,P4$
1820 PLAY B6$ ,A6L$,A6R$,E4L$,E4R$,E4C$,SS5$,S2$
1830 PLAY B6$ ,A6E$,A6F$,E4E$,E4F$,E4G$,S5$ ,Q2$,S3$
1840 PLAY B6E$,A6G$,A6H$,E5L$,E5R$,E5C$,P5$ ,P2$,P3$,P4$
1850 PLAY B6$ ,A6L$,A6R$,E5E$,E5F$,E5G$,S5$ ,S2$,S3$,S4$
1860 PLAY B7$ ,C1L$,C1R$,A7L$,A7R$, ,P5$,P2$,P3$,P4$
1870 PLAY B7E$,C1E$,C1F$,A7E$,A7F$, ,Q5$,P2$,P3$,P4$
1880 PLAY B7$ ,C1L$,C1R$,A7G$,A7H$, ,P5$,P2$,P3$,P4$
1890 PLAY B7F$,C1G$,C1H$,A7I$,A7J$,A7K$,R5$,R2$,S3$,S4$
1900 PLAY ,A1M$,A1N$